home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / apr95 / bowl13.gif

< prev

next >

Graphics Interchange Format  |  1996-07-10  |  11KB  |  445x516  |  4-bit (4 colors)

Labels: text | screenshot | display | number | font | parallel | line
OCR: 2STATEPB.FSL :: demo_2state_cb :: action method action(var eventInfo ActionEvent) var *** ida SmallInt endVar ida = eventinfo.id() switch case ida = UserAction: ; Execute "On" code message ("Checkbox is On.") case ida = UserAction+1: ; Execute "Off" code message ("Checkbox is Off.") endSwitch endmethod . .. Edit Line: 14 Col: 1 2STATEPB.FSL :: demo_2state_cb :: newValue method newValue(var eventInfo Event) doDefault if eventInfo.reason() <> editvalue then return endIf if self = "On" then self .postAction (UserAction) else self.postAction (UserAction+1) endIf endmethod Edit Line: 9 Col: 34

---